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GENCRAL 


The B1800/B1700 RPG StLanguage provides the virtual machine 


interface hetween the code generated by the RPG compiler and the 
RPG interpreter. This specification describes the format of RPG. 


$*instructions and then explains each operator as a member of one 
of the popton tag classes: - 


“ARITHMEETC 
DATA MOVEMENT 
BRANCHING 
 NON“BOOLEAN COMPARISON 
BOOLEAN MANIPULATION 
BOOLEAN COMPARISON: 
MISCELLANEOUS 


RELALED pocu MENTATION 


NAME | | a NUMBER 


81800/31700 iattuste seerecienat Guide | 1068731 
31800/81700 COBOL Reference Manual | 1057197. 
-81800/81700 RPG Reference Manual — £057189 
31800781700 RPG Compiler Specification | P.Se 2295 1155 


S“LANGUAGE PROGRAMS 


ALL RPG S=lLanguage programs have a base register and a Limit. 


register associated with them.  $$The area between the base 
register and the timit register is to be used as data Space only. 
ALL program coder organized in segment form» is stored at any 
availaple location in memcry» according to the aemory Management 
algorithas used by the 81809/81700 operating avarems 


The data ‘space includes a non-overtayable area which contains nae 


current OPerand (COP) table and various other parameter s- such as 
cdit Masks and Record Areas. 
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Various parameters,r necessary for the execution of the S-language 
object code and Maintainance by the MCPe are stored ey ond. the 
Limit Register in the Run structure Nucleus CRSN). 


A typical RPG program Layout in memory is as follows: 


BASE REGISTER: => Teeeeer Serres ssn Shwss:() 
| | 1 EDIT TABLE (8 CHARS) I : _ 
Pe 2 } [Sr aneanes neta re Po <eeeceee AST ENTRY CCOPX=1) 
pe @ | i | 1 , 

| _ | COP TABLE 4 
i | 
pa ee aan e seers Sees ee= 1 ees e om IDATA SEGMENT 


{ FIXED FIELD AREA { ZERO aoe 


[ wc en manana wren naa aman aee | | an 2 
i 2 «| COMMUNICATES & TRASH | ae a: 
4 | ICINTERMEDIATE RESULTSI1 STATIC CORE 


(femme ee se eens cna- etal | | . 
” MONGVERLAY ABLE ns DATA SEGMENT ZERO 
1 DATA AREA x «| | —— | ’ 
~ ele leladtateietatatetatatatetatetatetates en] <mnee- STACK BASE 

a, 4 oe | t STACK | | 
BO LIMIT REGISTER 7> boost octet ttrttsccccter td <ornerrm STACK LIMIT 

| 7 a i REINSTATE INF & § | 

RUN STRUCTURE 


i S“CODE ( 
J meee ewe meme ee ne nea ann | 
Figure imis RPG Program Layout 


* THIS ARCA IS ACCESSED BY BOTH THE USER AND ae COMPILER 
FOR DEFINED aan 
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i 1 | 1 SIZE t 
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tor ft 256 ft 1 EA ft 
- 1 255 4 BO0LEAN 1 { 
Lage ee fINDICATORS!# df 
ee : Ponce femme enw ani ences n| 


= 1256 0 FX ie 4t 


, tte Rotel ttetatel tattered 

| 1 264 1 SK a 

4 Laeorne ee sseeneettesaaert 

2 1 276 1 SP ee - « @ 
Seaeee = (Sa eee errs aes i * Address relative to Data 

| § 288 1 FN FB i Segaent Zero 8ase 

|  etotetetated Reteteieteietetetededl teieioletatel 4 : | 

| 1 295 105 1 4 I 

| | em enw een n enn e nec m en enen| 

| Figure 172: Fixed Field Area for Programs Prior to 6.3. 

Note: Variables peculiar to RPG operation are contained in the 
| Fixed Field Area. The 256 Boolean Indicators Set 
: conditions for execution of various parts of the program. 
| FX (File Index] conditions the file to be processed» aK 


controls printer skipping» SP controls printer Spacings FN 
a | designates a file by number and 05 (Output Switch) denotes 
what 1/0 operation is to be performed. 
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ee i SIZE | 
| ICBITS)! 
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1511 4 BOOLEAN 1 i 
PINDICATORSI 4 
Tetetetetated letetstatatetatatated Keteetatetel 
$512 4 FX bi2 
eee ee rine 
1524 (4 SK ' 12 i 
De lted Relatatetetatetatated Rateetelatel. 
1 536 t SP p42 : | | | 
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Peetatstateteetatastatattatetetetentel. 


Figure 17-3: Fixed Field Area for Programs 8.0 and After. 


Mote: The total size of the Fixed Field Area for programs prior 
to Bede Beefy or after 8-9 may vary depending on the actual. 
user program. Note that 256 Boolean Indicators means the 
container size for a boolean address index is 8-bits wider 
white 3512 Boolean Indicators means a container size of 9 
hitS. | | 


pe TEER BEN Bad FR ER SE ER ees See Saale Ce o 


fier aisas: 


aaa 


IDE SEE 


i=5 
“BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
LOMPUTER SYSTEMS GROUP 31800/31790 RPG S“LANGUAGE 


SANTA BARBARA PLANT : PeSe 2212 5306 REV. C 


Program Parameters 


The parameters pertaining to a particular oroqran are tisted | 
bel ow. The number of bits used to contain the parameter appears 
in parentheses following the parameter name. | 


eDISPBI (5) | | Branch disolacement container size + 1 

DSEGZ (24) Base of data segment zero 
STACK=POINTER (24) Base address of st ack 

STACK=SIZE (5) * Gia of the stack 

COP“BASE C24) | | fase address of COP table 

COPB (12) | COP entry Saneaqiet size 

DISPB €5) a 7 a Data displacement container size 

LENS 6) _ Data Length container size 

COP XB (5) _ cap index eontaines $ize 


Container Size 


Container size is a field size Cin number of bits) necessary to 


contain the maxinum value required for that field. For examole>r 


a container size of five bits allows a field value to house 32 
addresses (0731). | 
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S:Insteuction Eormat 


Lach RPG S-instruction consists of an S-operator followed by 


arguments consisting of a variable number of bits. The format 
. and tnterpretation of these arguments ar2 specified by the 


>-operator and are described in detail by the specification of 
the individual operators. An 2xample of one sach instruction 


format is illustrated oeton: 


{ OP1 ot. OPND | cOaPKX t 
—' C6)  F CVARTABLE) §  CCOPXB) 1 
Se ee ley ae oy see Sa a ae ee ae ee fm ee ee on 
t a i ) | 
= | i-- INDEX INTC COP TABLE 
' | 


I-- INDEX INTO COP TABLE OR LITERAL 
ALi S-operators are encoded in six-bit fields denoted as OP1l. 
Qoerand CUPND) | 


An operand is normally referenced indirectly through a table 
containing the attridutes of the operand. An argument which 
references an operand in this manner is denoted as COPX. An 
operand is either contained in the instruction as a Literal or is 
referenced indirectly throujn the table. An argument of this 
type is denotea as OPND. The first bit of OPND is denoted as 
LITFLG and is used tO indicate a titeral string or COPX as 
follows: | | | 


bm-->f Lot LITERAL STRING es 

oa i aiahatetaiabeteletetatetetaltekeiatatote woe en ee n= 
LITEUG ere: © | | 7 

| | i See eee re een yl ne eg ee eee ey eee eee 

t==>) 0 7 COPX a 


in7 
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| Literal String 


When LITFLG specifies. a Literal» the literal string» which. 


includes the Literal type (LTYPE)» the titeral length (CLLGTH)>» 


and the Literal (LSYM8) itself Cin that order) is included in the 


code stream iawediately following the LITFLG. The format 1s as 
Follows? | | 

a LIYPE | CLGTHL 1 LLGTH? LSYs8 | 

Pc2) 8 (3) on oo ! CVARTABLED { 


‘Note: LLGTH2 present if LLGTH1 equats zero. 


LTYPE 
03 = Unsigned 44-bit 
91 Unsigned 8=-bit | 7 
12 Signed 44-bit (Csign is Most-Significant-Diqit) 
Tl Reserved | | ea 7 


i 


i 


oii 


The length of the Literal expressed in binary is encoded in- 


LLGTH1 and LLGTH2. If the length of the Literal is tess than 
eight digits or characters» its tength is encoded in LLGTHIL and 
LLGHT2 is omitted. If the length of the literat is greater than 


or equal to eight digits or characters» its lenygtn is encoded in 
LLGTH2 and LLGTH1 is set to zero. The maximua Literal Length 5 


255 digits or characters excluding the sign. 


Current Uperand Index (coPx) 


The argument CGPX is an- index value used to index into the 
current operand table (COP table). The number of obits ~(COPXB) | 


used to index into the CUP taole is a function of the maximum 


number of COP table entries required for the source program. For. 


exaapla->s a COP table conse tang o f between 12 and 1923 entries - 
would Penden’ ten bits. Ls , 
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The address of an entry is calculated by muttiotying the value 
"cOPX™ by the value "CUPS" and then adding the result to the base 


address of the CUP table. 


A COPX value of zero specifies that the COP table information is 
contained in-line in the S-instruction itself rather than in the 
COP taple (see next section). | | | | 


Yote: The base address of the COP tabte points to an unused 
entry. 3 | | 


Biss Sic Se SOE or Ts SA Be ease reg OS Smet ape ia me Ce ee tae |e ee aay ee We Seg A emcee ke ttc Cee ee ee be Se eos es shoal ate 


ss Ser BUET ELT et vec PEEP Pee SPs EPP Ees 
a SiR e cae Et ie a haat Re 
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Anzhine COP Information 


fhe format for in-line COP information differs from its cop table 
format (see Current Operand Tadte) when SuDSCCADE Tis or indexing 


is required. 


The format for in-line CUP information is as follows: 


t ADDR 


iCoT 


Ess ot DATA 1 SUBSCRIPT OR t DATA ft UNUSED 


i 
IDISPL. J LENGTH t INDEX FLAG | TYPE | a 
SPB) | CLENB)D = C1) | (2) i Ci) ! 


OD A ON GU OE OE ED GE OE OD AD OD ER OE OE OR OE OE OD OE GD OE OR OR ER ED GP ee mk mum aa a 8 ee ee ee ee —~ a 2 oe a we ee a on oe ae 


{ NO. 
1 OR 
t (2) 


m2 2 


OF  § SUBSCRIPTI COPX1 SUBSCRIPT! COPX2 #§ SUBSCRIPTI 


INDEXESI { 7 eo en | 
' 1) | CCOPXBI! CLENB) 1 ccoPxXaodt CLENB) I 


ee ee ee Se et eS “a. 28 om mm ne a mn ae em OE om OR eR oe OR OO om on am —_ <-> om -— mm memenm a ew w= 


; | ! 
| SUBSCRIPTSI FLAG bo P FACTOR 1 t U FACTOR 20 
i 


of COPK3 4 SUBSCRIPT i TABLE 


1 CCOPKB) | CLENB) § COTSP8) 


it 
1 FACTOR 3 ¢ BQUND ii 
it 


Notes: 


None of the subscripting/indexing information Call entries 
following  § the data type) as present  untess the 
SUBSCRIPT"OR“INDEX“FLAG equals one. | | 


A COPX for each index values or a COPX/SUBSCRIPI FACTOR pair 
for each subscript values must be oresent as indicated by 


the value of number of subscripts or indexes: 


one 
two 


three 
reserved 


pe oD 
Wow ou oat 
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3. «sO COPX1r «COPX2» and COPX3 may be in-line entries put must not 
be subscripted or indexed. | | : 


1-iL- 

BURROUGHS CORPURATION COMPANY CONFIDENTIAL 
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SANTA BARBARA PLANT Peds. 2212 393556 REV. C 

, Current Qperand Laple (CaP) | 

/ | The CoP table consists of a set of entries» each of which 

fs, contains the attributes of a variable. The width of one entry is_ 

— a function of the source program and is detersined by the number 

: of bits required to express its attributes COISPLACEMENTS LENGTH» 

| | SUBSCRIPT -GR- INDEX ~ FLAG and DATA [YPE).. 7 

| — _ | : | oe a 

—_ - When the attrioutes exceed one entry» multiple entries are used 

— to acconodate the additional information. Any reference to a 

) , multiple entry attribute points to the first of its entries. 

: Ihe format of an entry in the COP table is as follows: 

| Ce Sees ese sS e335 <6 ees 6-== COPBR -2------------------ eee ara aa ed A 

ae 1ADDRESS § DATA { SUBSCRIPT-OR- 1 DATA 4 UNUSED I 

| 1OTSPL. i LENGTH I INQEX@“FLAG t fYPE Y | i 

MCOISPB) { CLENB) i C1) | nn [an j (i) 4 

Se ee Ee ee eet ee ee ee eee eee 2 mem wm Te om a aR a SBD m Ene ns am 1 Oh wD Sh Oe Oh a A —_ a om a a oh oe oe Oe -= a om ae 

ND. OF ! “SUBSCRIPT=1 $UB SCRIPTI SUBSCRIPTISUBSCRIPTI TABLE f 

| USUSSCRIPTSI FLAG 1 FACTOR 1 | FACTOR 2 IFACTOR 3 1 30UND 1 

: -10R INDEXES! | q i ft a a’ 4 

1¢2) ' €1) 1 CLENB) § (LENS) ICLENB) 1 CDISPB)I 

: wpm eww eta ene an ¢uecee tem em ee , eeetedine tate tele  iakedieaiedateltadateed, teteetelen 

_ | 7 i ' 

[2s | a i t 

Et ore 4 me of a ; ae 

Pe oo i | ! 7 PRESENT IF i PRESENT IF 

to PRESENT IF ! NUMBER OF J SU3SCRIPT-“OR- 

| ' SUB SCRIPT-OR- i SUBSCRIPTS INDEX“FLAG = 1 

_ — INDEX-*FLAG = 1 i = 01 OR 10 i | 

7 9) = 1 PRESENT IF SUBSSCRIPT~ | PRESENT IF NUMBER 

: OL = 2 —OR@INDEX*FLAG = 1 | OF SUBSCRIPTS = 10 
19 = 3 - | 7 | | 
ii = Rk 


Reserved 
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DESPLACEMENT 
Jisplacement is expressed in binary and specifies the digit 
displacement of the data from the pase of the data segment. ALL 
data is stored beginning at an address waich modulo 4&4-*0it must 
equal = zero. The container size COISPB) is a function of the. 
maximua data displacement specified in the source program. The 


range of the disptacement container size (DISPH) is 1 through 21. 


DATA LENGId 


Data length is expressed in binary and specifies the number of. 


digits or characters in the data item» excluding the sign. ‘The 
container size C(LEN3) is a function of the maximum tength 
specified in the source program. The range of the data Length 
container size (LENB) is 1 through 143 howeversr the targest data 
item allowed is Bei91 S"bit or 162335 4*bit units. | 


SUBSCRIPT-OR~LNDEX-FLAG 
Tha SUBSCRIPT-“OR-INDEX“FLAG bit is true to indicate subscripting 
or indexing, otherwise» 1t ts fatse.. When truer the next 
entry(s) contain the necessary  subscripting or indexing 


information. 


Note? None of the subscripting/indexing information Call entries 
Following the Data Type) 15 present untess the. 


~SUBSCRIPT-CR-INDEX-FLAG equals one. 


a am wom man om ase 


Data type specifies the type of data as follows: 


0} = Unsigned 4-bit 
QO1 = Unsigned &=bit | | oe | 
15 = Signed 4-bit (sign is Most-Significant-Digit) 
= Signed B-bit Csign over Most-Significant-Di git) 
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NUMBER OF SUBSCRIPIS OR INDEXES 
When — indexing or subscripting is indicated by the. 


SUBSCRIPT-UR-INDEX-FLAG» the number of subscripts or indexes. 
required for the variable is specified 1s foltows: 


One 

Two 
Three 
Reserved 


ar 
peak 
iow on 


_ 
| 


The bit immediately following the SUABSCRIPT-FLAG field indicates 


the appropriate operation: indexing or subscripting. 


Indexing 
subscripting 


cS... 


1s 


SUBSCRIPT FACTORS 


Suoscripting requires one to three fields. LENB bits in Length» 


sontaining the binary factor by which each subscript value is to 
be multiplied to obtain the proper digit address. The factor is 


a digit value indicating the displacement between elements of the 


table. The value one 18 suotracted from the subscript value 


prior to muttiplying by the factor. Tne subscriot value May be 


sijned. 


If the subscript value is zero or negatives or if the final sua 


of the muttiplied suoscript values exceeds the table bounds an 
error comsunicate will ve issued. 


| if the binary equivalent of the multiplied subscript value or the 


sum of the multiplied subscript vatues exceeds 24 bits,» overflow. 
is papereds aa 


A COPX for: each subscript value immediately follows the primary 


COPX in the Stinstruction. A subscript variaple aust not itself. 
be subscripted of indexed. | . 


i 
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Notes — itera subscript. values are optinized by the compiler by 


buiiding a new in-line descriptor in the S-iastruct tons. 


INDEXING 


dhen indexing is indicated» a COPX for each index value Cup to 
three) immediately follows the primary COPX in the Stinstruction. 


An index variapie must not itself be indexed or suo scripted. 


An index value is contained in a 2B-bit field. The value 
consists of a 4~ bit sign followed by six 4- bit decimat digits. 


The value is converted to binary and combined with the binary 


data address at execution CIRC 


If any index value is less than zerore or if the sum of the tndex 
vatues exceeds tne table bounds an error communicate will be 


issued, 


TABLE BOUND 


fable yound is a binary value used to soecify the maximum 
permissible digit displacement from a a. oase2 for subscripting 
and indexing. Its eonkat ner size is DI% 7 
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be NAME MNE MONIC oP ARGUMENTS 


INCREMENT | INC 35 OPNDL» COPX1 


i) 


os AD ADD 1g UPNDi» COPX1> copx2. 

| DECREMENT = - pee 11  UPNDi» COPKI 
SUBTRACT SUB iB UPNDI- OPNI2» COPX1 
MULTIPLY | MULT (13 DPND1» COPKis COPX? 


DIVIDE | O1V 14 PNDis COPX1- COPX2 


INCREMENT 8Y ONE INCI 15 COPX1 
DECREMENT BY ONE DEC1 16 cOPX1 
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ARGUMENTS 
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MOVE ALPHANUMERIC 


MOVE SPACES 
MOVE NUMERIC 


EDIT WETH EXPLICIT MASK 


MOVE ZEROS 


SCALED MOVE NUMERIC 


40VE NUMERIC TO FILE INDEX 


MOVE NUMERIC TO OUTPUT 
SWITCH | 


MOVE ARRAY 


MV A 


23 
17 


24 


—OPND1>+ COPX1 
“copKi 

OPNDi» COPX1 

OPND i» COPXL» MASK 
caPK1 | 

OPND1> COPK1» Ve» scl 
OP NOL | 

OPNO1 


INDi» OPNDi> COPX1> 
COPK2, COPX3 
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BRANCHING 


NAME OO MNEMONIC QP ss ARGUMENTS 


SRANCH UNCONDITIONALLY = BUN c6  —-SADOR 
ENTER >>: NTR 18 


| 2 | EXIT _ XIT | 19 RBADODR 
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Se ae gee ee 


NON-BOOLEAN COMPARISON 


NAME MNEMONIC) = OP) ARGUMENTS 
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i COMPARE ALPHANUMERIC CMP A 07 —- GPNDL» COPX1+ Rr BADOR 
COMPARE NUMERIC CMPN 08 QGPND1i» COPXL» R» BADDR 
COMPARE FOR ZEROS — CHPZ 22 COPX1» %» BADDR 


! COMPARE FOR SPACES = CHPS- 25s CUP Ay Re» BADOR 


SOMPARE ZERO TO OUTPUT  CZ0S 26 Re BADOR 

SHITCH | 

SOMPARE ZERO TU FILE CZFX 27 R» BADOR 
INDEX : | | | | 

SOMPARE NUMERIC TO CNUS 28 OPNDL» Re BADDR 
OUTPUT SWITCH | | , 


SOMPARE NUMERIC TO CNEX. 29  OPND1s Re» BADDR 
FILE INDEX -_ | 


COMPARE ALPHA» MARK CAMR 43 OPNDL» COPXL> Re BI 
RESULT | _ = _ 


E NUMERIC» MARK CNMR Hh QPNOLl» COPX1i»e Re ot 
COMPARE FOR SPACES» —  CSHR 4S CUOPKLs» R» BI 
MARK RESULT. es | 


COMPARE FOR ZEROS» — CZMR BC CUPK ty Re BI 
MARK RESULT ‘1! | | | 
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NAME 


MNEMONIC 


ee ee ee ee ee ee ee ee ee ee ee ee ST eS ee Ee ES ee ee ee 


SET ONE BOOLEAN 


CLEAR ONE BOOLEAN 


CLEAR SOOLEANS USING 
MASK | 


CLEAR TWO BOOLEANS © 
CLEAR THREE BOOLEANS | 


SET TW BOOLEANS | 


StT1 
CLR1L 


CBUM 


CLR2 


CLR 3 


SET 2 
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BI1l> 
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B12 
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SET THREE BOOLEANS © SET3 3I1l>5 B12» B13 


“BIT ON : BTON 48 QPNDLs COPX1 


ss) 


311 OFF BIUF 49 UPNOl» COPX2 

= TEST BIT. Ist3 50 OPND1» COPX1» INDI» 
_—— ee | a | >  IND2»> IND3. | 
ee | 


Bll» 812» BI3>» 


TEST NUMERIC STN 55 
| sg COPKL 
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NAME |  MNEMONIC } UP> ARGUMENTS 
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BRANCH IF BOOLEAN FALSE GT BF 99 81» BADDR 
L es BRANCH IF BOULEAN TRUE EBT $4. BI» BADDR 


— TEST 2 BOOLEANS } TST2 al BTVie BIls BIV2> 
Lf ge 3 8 a a | B12 BADDR | 


TEST 3 BOOLEANS ~ TST3 42 BIWVis BIl» BTV2>» 
| othe $ - | - 7 ; BI2» BIV5>» BIS» 
B ADDR 
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ARGUMENTS. 


CONVERT TO BINARY 


LOAD COMMUNICATE REPLY 


COMMUNICATE 


MAKE PRESENT 


HARDWARE MONI TOR 


BEGINNING OF JOB 


UNORDERED TABLE SEARCH 


ORDERED TABLE SEARCH 


CONVERT FIELD 


CNV 


000 


V1 


24 


34 


COPX1» BADDR 
BADDR: 
coPpx1 


COPXL» dADDR 


OPNDL 


—cCoPpx1 


OPNDi» COPK1> COPX2> 
COPX3» BI 


OPND1» COPK1» COPX2>, 
COPX3» INDl»> KEYS» BIl» 
B12 | i 


—COPX1»+ COPK2 


EE RUS EUEESE PREEE EELS, 
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STINSTRUCTIONS 


ARLIHMETIC OPERANDS AND INSTRUCTIONS 


in general» arithmetic operands can have any of the following 
formats: >» 4 - 2 Be? 7 


Le Unsigned 4-bit. 

2. unsigned &-bit 3 | 
3. Signed 4-bit (sign is Most-Significant")igit) 
he Signed S&“bit (sign over Most-Signficant-Digit) 


Any restrictions concerning the types of operands oermitted in oan 
operation are specified under ene description ae the particular 
opeere eas 


ALL fields are addressed by pointing to the most significant bit. 
of the most significant units which in the case of a siqned field 
1S the sign. 7 | | 


ALL fields are considered to be comprised of decimal integers. 


The absotute value is stored if the receiving fteld is unsigned. 
Jnsigned fields are considered positive. 


When signed format is specified for the receiving field for any 
arithmetic operatione the sign position 15 set to 1199 for a. 
positive result and to 1131 for a negative result. | | | 


The 4-bit operands are interpreted in units of four bits. When a 
signed operand is specified» the sign is interpreted as ae. 
separate and leading Cleftaost) 4- bit unit which is not included — 


in the statement of Beet ns 


ie 
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The B-pit operands are interpreted in units of eight bits. When 


a Signed operand is specified» the sign is interpreted as veing 
contained in the Leftmost four bits of the leftmost 3-dit unit. 


The length of the operand field Smewue ae the number of 4&4-o1t or 


3=pit units. 


when abit units are specified tor the receiving field of an 
arithmetic operation» the leftmost four bits of each Bmait units 
except the unit carrying a signe is set to 1lill for EBCDIC. 


fhe vatue of an @bit unit is carried in the rightmost four bits 
of the unit. Its value is as defined below for the 4-bit unit. 
[ne leftmost four bits» except for a sign» are ignored. The 
value and sign interpretation of a 4~bit unit is as follows. | 


UNIT VALUE  — SIGN 


0000 Q + 
0001 1 t 
9010 2 + 
OO11 a t 
~—6O105 A + 
0101 5 +. 
9119 6 + 
ULtiil 7. + 
1900 6 t 
1001 =) + 
10195 UNDEFINED + 
1Oil UNDEFINED + 
1109 UNDEFINED + 
11601 — UNDEFINED | - 
LI16 UNDEFINEO + 
+ 


Lilt UNDEFINED 


In addition and suotractions results generated when the size of 
the result field is not sufficient to contain the result are not 
specified. When the result field is tonger tnan the tength of 


the results» teading zero units are stored. 


Ia three address add». three address subtract and in multiply» 


_ totat or partial overlap of the first two operands is permitted. 
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Results ‘genceaieed when the resutt field totally or partially 


eveGlaps either of the Soenoue fields are not specified. 


In two address add and subtracte> totat overtap is permitted. 


Results generated when the result field partially overtaps the 


first operand field are not specified. Note that total overtap 
implies that the two fields are identical. 


No overlap of operands or result fields is oermitted in divide. 
Results generated under = any condition of overtap are not 
specified. | | | 
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INCREMENT 


2? 3 ss | kthk&kkkat 
fC .% = % _ | * INC * 


aAkKaeEKKKK 


7 et Le 


a eS et I tn eS ESE 


Format? | 


eEKKEKAKEKKKKKEKKKEKEKKKE 


* INC OPND1> COPX1 * 


kKKEEaEKKKKKKKKEKEAEKEKKK 


Function: 


Algebraically add an addend denoted by OPNDI to an augend denoted 
py COPX1 and store the sum in the field denoted by COPX1. | 
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Do 4oD 


Kkkk& kkk 


x ADD « 


kkeaKkK KKK 


poe San A ag EE Ei a a a a ag pr 


pe Ae 


Ae ae ee 


OP: 19 


Format: 


SS I SE 


wRaeKKKREKEREKKKEEKEKEKREKAR KK 


* ADD OPNDis COPX1>+ COPX? * 


| | wk kk kkk kkk kk hkekkk kkk kkk kkk 
oe Function: 


Algebratcaily add an addend denoted py OPNDOL to an augend denoted 
oy COPC1 and store the sum in the COPX1 and store that sun in the 
field denoted py COPX2. — 7 | 


| a: 
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 ~DECKEMENT 
kkkeekkt 
* DEC * 
: eke KKK 
OP: 11 
Format? | 
: 7 kkk khkhk khkkkkhek kik 
a | * OFC GPND1» COPX1 * 
: . RRREKEAKKERKRAKK ER RK 
Function: 
Algebraically subtract a suotranend denoted by OPND1 from a 
wy ainuend denoted by. COPX1 and store the difference in the field. 
ae denoted by COPAIL. 7 | | | 
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SUBTRACT 


Format: 


| kkkk&kkkkkikk kkk kKkKkek hha kh t 
—- 


* SUB OPND1> OPND2> COPX1 * 


kkhkkhkkkkkkkkkkkkkk the kkekt 
Function: . 


Alyebraically subtract a subtrahend denoted by OPND1 from a 
minuend denoted by OUPND2 and store the difference in the fietd 
denoted by COPX1. | | | | 
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MULTIPLY 


Format: 


Ketek kkkkkkkkkkKkkkhkkkKkK kkk KKK 


* MJLT OPNO1l>» COPXLs» COPX2 « 


KRKRAEKRKEKKEKKEKKKKKKKRERK KKK KKK KEK 


Function: 


378 
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Rakha kkk 


« MULT * 


ft kkk nenknke 


Algebraically multiply a multiplicand denoted by COPX1 by a 


multiplier denoted by QPND1 and store the product in the field 


denoted by CUPX2. 


The result field will always b2 


unsigned 4-bit format. 


The result field tength is the sum of the tengths of the two 
operands and must be denoted by COPXz. | | 


either signed 4-bit format or 
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 DIMIDE 


kkhhkhe 


*« DIV « 


keer ake 


Format:. 


cia veeuee maeueeeea ee eaens 
* DIV OPND1i» COPX1» COPK2 * 


kkkkkhkkkak&kkkkkk kkk ket KKEK 
Function: 


Atgebraically divide a dividend denoted by. COPX1L by a divisor | 
denoted by OPND1 and store the quotient in the fietd denoted by. 
COPX2. ‘Store the remainder in the field denoted by COPXL. 


The result fteid length is the difference of the Lengths of the 


two operands and. must be denoted by COPX2. 


Results are not specified if the Length of the dividend is not 


ace seer than the length of eng divisor. 


If the absolute value of the divisor is not greater than the 


absotute vatue of an equivalent number of feadin3 digits of the 
dividende the result is undefined. 


Jivision by zero results in a fatal error communicate to the MCP. 


The sign of the remainder is that of the original dividend. 


The dividend field witl always be either signed 4-pit format. oY 
unsigned 4&-bit format. i : an aor 


o) 


Nine San Ra Se a Se ae a ev ea Rt SCE a eS SE ERRORS RS SORES SE OOS TERE Cg SOO ee 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT. 


INCREMENT BY QNE 


OPPs. 415 


Format: 


wRaHKKKRKKKKKKKK 


* INCL COPX1 «* 


wkRae#aKkKkaKKEKRKKEKEK 


Function: 
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kkhhthheh 
* INCL * 


kk thkkk kat 


‘Algebraically add the. jae tee: integer one to an tonnes denoted 


dy. COPK1 and store the sum in the field specified oy COPXt. 
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DoCREMENT BY QNE 


"ormat: 


xkaken wk KaKKKKKE 
* DECL COPX1 « 


eee eS See eS oe 2 2 
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kk tkhkkt 
* DECI * 


kRaxetetakaekee 


Algebraically subtract the vositive intejer one from a minuend. 


denoted by COPX1 and store the difference in the field specified 


by COPX1. 
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In generals fields involved in data movement g9perations can have 


See ec ee ea et a ng ee OP ee gp Se Se Pee aeons Savery aus Se gue eee Shae eet ee 


3-12, 


BURROUGHS CORPURATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP | B1800/B1700 RPG S“LANGUAGE 
SANTA BARBARA PLANT a — -PeSs 2212 5306 REV. C 


QALA MOVEMENT QPERANDS AND INSTRUCTIONS 


any of the foltowing formats: 
le Unsigned 4-bit 
2e Unstgned &-bit 


32 Signed 4-bit (sign is Most-Sicnificant-Digit) 
4. Signed 8~bit Csign over Most-Significant-Digit) 


any restrictions as to the type of fields germitted in an 


aperation are specified under the pooer ion of the particular 


Sper al ons 


See ARITHMETIC OPERANDS AND INSTRUCTIONS for a description. of ‘the 
four types of fields. 


Totatty or partially overlanped fiatds are not permitted» untess 


Specificatly specified by the description of the individuat 
instruction. | | | 
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MOVE ALPHANUMERIC 


krekek kkk 


* MVA * 


kkeKAKERKK 
DP: 93 
Format: 


erevrrttret ite e eat 
* MVA OPNOL» COPX1 * 


kKRaekekk&akk&kkk&k&kk&kkek&kktk 
Function: | 


Move 8-bit or 4-bit units from the source field denoted by OPNDIL 
to the 8-bit or 4-bit destination field denoted by CUPX1. | 


If the destination field is signed» it receives either the sign 
or the source if the source is signeds or 119) if the source 1s. 
unsigned. | 3 | | : | 


If the data type of the source field is 4-bit and the data type 
of the destination field is 8*bit» each 4-bit unit 1s moved to 


the destination with 1111 moved to the leftmost four bits of each. 
§Re-ort unit. - 7 | 


If the data type of the source field is 8-bit and the data type 
of the destination is 4=bit» the rightmost four pits are moved. 


If the data type of the source field is che same as the data type 
of the destination field» each unit is moved unchanged t9 the 
destination. | | i | | 


ee at a a at orice ee a a ae a a, Pa ww SE 
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if the destination tength is greater in size than the source 
length» the destination field is filled in on the right with 
traiting spaces (9100 0000) if the destination type is &-bits 
otherwiser it is filled in on the right with nults (0009). — 


If tne destination tength is lesser in size than the source 
lengths the source data is truncated on the right. 


Overlapping operand fields are permitted if the data type of both 
fields is the same. It can be assumed that tha source is soved 
274 bvits (Csix digits or three characters) at a time into the 
destination field and that the move is from left to right. a 


6 eet 2 Ey i ec a ee ai aS De Ds a Pe Pets | 


nS ee ERE Be 8 BOR Be Ch Ee Sa A RE ASR ENT L AE SP ae Bidet nee DS A eb eee at eee 


Te ee eT ee ee eee 
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MOVE NUMERIC 


kee kkk eh 
«* MVN # 


kRkhkkhkhtk 


— Ps 04 


Format: 


khkk kk kkk kkhkh kk kk 


* MVN OPNOL> COPX1 * 


Rue aeaEKEKKEKEKEKKKKEKKEK 
Funetton: 


Move 8“bit or 4“bit units from the source field denoted by OPNDL 
to the Brbit or 47-bit destination field denoted by COPK1. es 


If the destination field is signed» it receives either the sign 
of the source if the source is signed» or 1100 if the source 15 


unsigned. 


if the destination fietd is unsigned» the sign of the source is 
ignored. | 


If the data type of the destination field is 88-bit» the leftmost 

four odits of each @mbit unit» except for the sign positions § if 
Signed, are set to 1lllil» regardless of the data type of the 
source field. e : | | | 


‘If the data type of the destination fietd is 4-bitr the leftmost 


four bits of each source 88-bit unit are ignored and only the 
rightmost four bits are moveds if the source field ig a 4-bit 
fields each 4-pit unit is moved unchanged. | | 3 


i 
i 


En aie ad rele a ite ae et Cm ge ge es RT eee aera oe gee se 
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If the destination Length is greater in size than the source 
length» | the destination field is filled in 01 the taft with 
leading zeros or appropriate type Cilili 06609) or 9006 if 47-bit). 


If the destination length is lesser in size than the source 


lengthe the source data is truncated on the left. 


Note that a sign is placed in the leftmost four bits of a field» 


whether 4~-bit or @&~bit. 


Overlapping operand fields are pernitted if the data type of both 


fields is the same. It can b2 assumed that the source is «aoved 
24 bits Csix digits or three characters) at a time into the 
destination field and that the move is from Left to right. 


S717 
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por SE Sos Sera Ss 


MOVE SPACES 


xkhkk th zk 
& MVS «& 


keke KaKaE 


ae aioe ee ee ee ee ee ee ee A ee ea Se ge 


TR a a i eg RS NR BES eg ge SS OE 


Format: | 


eee oe 


KERR KHRKEE RES 


* MVS COPK1 * 


kkheekkkkkaekikk 
Function: 


| Fill the destination field denoted by COPX1 with spaces (0190 
+ GO90). — | | | | 


The data type of the destination field is ignored and is assumed 
to be unsigned Br-bit. | | a | | 


Hrs hE PE Ge hb SESE Peeee ns Re Et Re ceed sated Adit tahoe de Petter Be kee 


a te nie yl oe RY ot ent a ae re en 


von Eee ad be RS hat te eee ee oes SE hae 
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EDIT INSTRUCTIONS 


No restrictions are alaced on the data type of the source field 


of an edit operation. 


The data type of the destination field of an edit oparation must 


oe® unsigned B-bit. | | 


If the destination tength is greater in size than the source 
length» the source data 15s assumed to have leading zero fill on 


the teft. 


if the, destination tength is tesser in size than the source 


Lengths the source data 1s truncated on the left. 


[he operation is terminated py an edit aicro-operator and not by 
the exhaustion of either the source or destination fields. 


{AS RS: is < 


TE ee Re ee ee ee a ee sare pert Bs2 Se rg ts cae Reg 


3-19 


- BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP --81809/81700 RPG S-LANGUAGE 


SANTA BARBARA PLANT. - | P.S. 2212 5306 REV. C 


EDII WITH EXPLICII MASK 


RkekkR aKa 


* FOTE *® 


kkekk kane 


Format: 


ka KEREK RARER KEAEKEKKEKERKR RRA 


* ENTE OPNOL» COPXLe MASK * 


kk kk kkhkkk kk kkkk kk kk kkkkkik 


Function: | 


Move data from the source field denoted by OPNDI to the 
destination field denoted by COPX1L under the control of the 
microctoperator string within the MASK field immediately following 
COPK1. The format of the MASK is the same as the literat and is 
as follows: | | | | | 


Vb LTYPE &§ LLGTH1 #€ LLGTH2 § MICRO-OPERATOR STRING I 
' (2) i €3) § C3) 1 CVARIABLE ) | i 

mm ee ef ee nee em ee me mn oe on ee ee ee eo man om am <2 me 
: i 

4 4 

i PRESENT IF LLGTH EQUALS ZERO 

i | | 
LENGTH OF THE MICRO-OPERATOR STRING IN = 
@=BIT UNITS. IF LENGTH IS GREATER THAN 
OR cQUAL TO EIGHT UNITS» THE LENGTH IS 
ENCODED IN LLGTH2 AND LLGTH1 IS SET TO ZERO. 


0 


poo 


: UNSIGNED 8-BIT FORMAT. 


OAT Sie SE sae Tee a eS a ae LTS ei Ee ad 


BFE OE Es SC SE OE ee aE eS eee EO 


fe pale a Reel ack eR Soa Pt at = ee 
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— EDIT MICRO-OPERATORS | 
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The edit micro-operators used in an edit instruction are: 


OPER ATION 


DIGITS. 


CHARACTERS — 


SUPPRESS _ 


SUPPRESS | 


P REVERSE DESTINATION 


INSERT UNCONDITIONALLY > 
INSERT ON MINUS © 


INSERT SUPPRESS 


INSERT FLOAT 
END FLOAT MODE 


bial fad 


OPERATOR MNEMONIC 
0000 R MVD 
0001 R- MYC 
0010 R- MVS 
= O21 R FIL 
9100 N - SRD 
0191 T INU 
0119 T INM 
LL T INS 
1009 T . INF 
1001 T EFM 
1010 00009 ENZ 
1010 0001 EOM 
1910 9010 $75 
1010 0311 Cccp 
1910 0100 ISP 
OTHERS 
il ae 


END NON@“ZERO 

END OF. MASK 

START ZERU SUPPRESS 
COMPLEMENT CHECK PROTECT 


INSERT SUPPRESS PREVIOUS 
UNDEFINED 


indicates a 4-bit binary value used as a repeat count . 


destination 88-bit units. 


wy 


1) 


3) 


Used to indicate 
table constants. 


value mv represents no nepseee do +t once. 


indicates a 4~bit binary value used to skip over a nuaper 
The value 0000 represents no skip.— 


indicates a 4™bit binary value which is: 


Used to index into a table of editing constants. 


a conditional selection between 


Used to indicate an edeeina con stant in line with 
 edit-operator string. | 


The 


of 


two 


the 


Ra Pa Ste ae a i A TI Rail AN AL A A RN Bi 8 Ak Ni wa ah ar tld i aie a I A ia he ie ie arto te ili hE irae Ral a ial iT acre a aia Dee lah Hill oe i Baal adi to “Sorae abcd: aha as A ae <A <a a OE i 2 I i a a A Sia lo OR Ei a is A el a I os ie Se ie he DE eee | ahaa ee a ee, Rag SE aes 


BURROUGHS CORPORATION 
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The next edit-operator follows the constant. 


The table below indicates the normal table editing constants as 
well as the conditional and unconditional selection of constants 


associated with the value "T"™. 


EDITING CONSTANTS 


tT —s- TABLE ENTRY 


UNCONOITIUNAL OR | 
EBCDIC —MNEMONIC CONDITIONAL CONSTANT 

G909° = +" . _ PLU 

3091 °°) ee MIN 

9919 — wy" | AST 

9911 | w=0 OPT 

9100 i he | CMA 

O19 le Td | CUR 

01190 wor ZRO 

J111 | aad | BLK Sn | 

1009 | | SPM | FITHER ENTRY 0 OR 1 

1031 | SBM EITHER ENTRY 7 OR 1 

1019 | | LIT IN“LINE 8-BIT CONSTANT 

— 


Associated with the edit instructions are three toggles denoted 
as "S" for signe "Z" for zero suppress and *P* for check protect. 


COMPANY CONFIDENTIAL 


Initialty» the "Z" and the "P" toggles are assumed to be set to 


the zero state. [hey are set and reset as Specified by the 
description of the individuat microcoperators. The *S" toggle is 


set to zero if the source field sign is positive and to = one 


otherwise. uUnsigned fields are considered positive. 


The EDIT MICRO-OPERATORS are explained individuatly in the 


following section. 


ort ine SVE rata A oo ae CHa ren g sabn ir hoe Cand 28S carer ee a 


ay ae a bE oe 1 oF 


SEES FSA ESR Sh ee Sarah Res Sein oe Ea nb ad od SLES SEE OS pa = OY 
f 
y 
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MOVE OLGII 


5et "7" to "1"» ending the zero suppress state. Move = an 


appropriate unit C4ebit digit or 8-bit character). from. the source 
field to the destination field. If a 4-bit unit is noved» append 
the four bits 1111 to the left before storing in the destination. 


If an B-bit unit is moved» oo four bits 1112 are sup stituted for 


the Leftmost four bits of tn? “Dut unit. 


MOVE CHARACTER | 


Zee oe" to "L"» ending the zero suppress states Move an 


aporopriate unit (4-pit digit or %bit character) from the source 
field to the destination fietd. If a 47bit unit 1s aoved» append 
the four pits 1111 to he Left before storing in the destination. 
If an 8-vit unit is moved» it is moved unchanged. © 


i 
Fi 
x 
4 
Hq 
4 
; 
u 
\ 
i 
4 
y 
i 


3-23 


BURROUGHS CORPORATION > COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP | B1800/31700 RPG S=LANGUAGE | 
SANTA BARBARA PLANT  PaSe 2212 5306 REV. C 


MOVE SUPPRESS 


The mtcromoperator "MOVE DIGIT" is performed if the 4*nit unite 
or the rightaost four vits of the 8~bit unit» of the source field 
is not equal to G09. 


If the appropriate four pits of the source field unit are equal 


to 000)- the suppress toggle "Z" is inspected. If "2" equats 


"1%, indicating mnonssuppress mode» the micro-operator “move 
digit* is performed. If the suppress toggle *"Z" equals "0"%» the 
check protect toggle "P" is inspected. Tf "P* equals “"G">» 
indicating non-check protect mode» §aove_ the taole entry 


containing the 6-bit code for blank to the destination field. If 


PP" equals “17, move the table entry containing the JBPENS code. 
for asterisk to the destination field. 


iw" 
ic 
i= 
iz 
ja» 
©) 
~< 


SOURCE NOT = 9 MOVE DIGIT 

Z=1 SOURTE = 0 MOVE DIGIT 

Z=0 P=5 SOURCE = 9 MOVE TABLE ENTRY 7. (BLANK) | 
Z2=0 P=L SOURCE = 9 MOVE TABLE ENTRY 2 CASTERISK) 


{f "pe equals "G"%» indicating non=check protect mode» move the 
taple entry sontaining the €@-bit code for blank to the 
destination fiedd. If "P" equals “"1"»s move the taole entry. 


containing the 88-bit code for asterisk to the destination field. 


SDE SEE eR EE LT 


wis one. Ee pS Ee Se 


Da R ARS Fs HSE EAE eB LT Bag RP ES Cash Rs be ee rege hah ha ee IAEA eta RSS or 
San tapen ces nos aac as baeis en a ae haa ee aa en ae ee ee ee ak a ee Ce cn Cea ec a jek eae a a ae aa ica) 
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sunsany - 


= 0 MOVE TABLE ENTRY 7 (BLANK) 
L MOVE TABLE ENTRY 2 CASTERTSK) 


3 
Wea 


SMLE SEVERSE DESLINATLON 


adjust ‘che Per eer s cointer of the dest ination. field to skip 


‘oackward (lower address) nN" Bebit UATES. 


LNSERI UNCONDITLONALLY 


Move the table entry "1" as indicated below to the destination 
field. | | | : | | | | | | | 


coal , MOVE TABLE ENTRY T rs 
MOVE TABLE ENTRY 9 CPLUS) 
MOVE TABLE ENTRY 1 (MINUS) 
MOVE TABLE ENTRY 7 CBLANK) 
MOVE TASLE ENTRY 2 (MINUS) 
MOVE IN-LINE TABLE ENTRY 


“ioe HW HW 


mH © Oo OO 


a 
oO 


Hove the table entry "1" as indicated below to the destination 
field. nes | — | 


T2Cs507 MOVE TABLE ENTRY T 

MOVE TABLE ENTRY 7 CBLANK) 
A MOVE TABLE ENTRY 2 (MINUS) 
9 MOVE TABLE ENTRY 1 CMINUS) 
10 MOVE IN@*LINC TABLE ENTRY 


NnMnnn 
nou WwW few 
tp pe 


* $=) or only source digits/characters  equat to zero 
(minus zero) have been moved. 
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INSERT SUPPRESS 


Move the table entry "7 as indicated below to the destination 


T=Qe0e7 MOVE TABLE ENTRY T - 

| MOVE TABLE ENTRY 7 CBLANK) 
MOVE TABLE ENTRY 2 CASTERISK) 
MOVE TABLE ENTRY 9 (PLUS) ~ 
MOVE TABLE ENTRY 1 (MINUS) 
MOVE TABLE ENTRY 7 (BLANK) 
MOVE TABLE ENTRY 1 (MINUS) 
0 MOVE IN*@LINE TABLE ENTRY 


“wo “UO 
Nt 


ou. 


rw © 
N 


NNNn 
Te ee re 
moro - 


Pu wb bb wot 


NNN NNN NON 
Scale oe ed ee oe 
ee 

mm OO oO & 


ion Ww i 


Move 


i 


NM NNN NNN NR, 


| ee] eee | | et | | | | 


BURROUGHS CORPORATION 
- GOMPUTER SYSTEMS GROUP — 
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“ascar cour 


SOURCE = 
~$OURCE = 
“SOURCE NOT=0 
SOURCE NOT=0 
SOURCE NOT=0. 
SOURCE NOT=0 
SOURCE NOT= 

SOURCE NOT=0 


OMA Me 


Wwoowdwooeor | 

ce ee ee Be Oe ne Be 

mHmMOvnooro | 
htrthin 


ft Po Hn HW OR 


wees MODE 


Move the table a eT" 


7 f ree 


te)... ” *tedeeer 
Z=3 $=0 T=8B | 
Z=0 S=1 T=. 
Z=0 $=9 T=9 

Z=9 S21 T=9 

T=) r=10 
‘Z=1 NO OPER ATION 


END NON-ZERO 


ferminate the 


in-line operator. 


| the table entry "Tt" 
eve as indicated below. 


=~ Or 


MOVE. 


MOVE 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


MOVE 


DIGIT 
TABLE 
TABLE 


TABLE 


TABLE 
TABLE 
TABLE 
TABLE 


B1800/B81700 RPG S“LANGUAGE ° 
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PSs 
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ENTRY 7 (BLANK) 


ENTRY 


ENTRY 


ENTRY 


ENTRY 
ENTRY 
ENTRY 


@ CASTERISK) 


Te. 
@) 


Ne 


dl 
IN*LINeG TABLE 


as indicated hbetow 


MOVE 


MOVE 
MOVE 
MOVE 


MOVE 
MOVE 


microsoper ator. 


Character/digit has been moveds 
next 


TAGE 


TABLE 
TABLE 
TABLE 
TASLE 


IN-LINE PABL 


ENTRY 
ENTRY 
ENTRY 


ENTRY 


ENTRY. 


operations 
otherulse- 


T 
¥) 
i 
( 
1 
E 


enavoe perform the nicro-oper ator "MOVE. 


THEN MOVE DIGIT 
(PLUS) THEN MOVE DIGIT 


(MINUS) THEN MOVE DIGIT 
(BLANK) THEN MOVE DIGIT. 
(MINUS) THEN MOVE DIGIT 
THEN MOVE DIGIT 


ENTRY» 


to the 


~~ CPLUS) 


CMINUS) 
(BLANK) 
CMINUS) 
ENTRY 


destination — 


if any non-zero source 


continue 


with the 


i 


Sp tseet eG pines Peet race tee ate Cee a eee se see e Petree hy Gee ele ge Seeger eS Se, eee ee Syke Se UE Soe ae Ae Pe ee Se OTB ON BP og cea Pas oe ne Re Cae cee ee Sa Se a OR ER Oa SR eS Seago a a 
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END QE MASK 


Terminate the micro~operator operations. 


STARI ZERO SUP2RESS 


Set "Z* to the "0" state. 


COMPLEMENT CHECK PROTECT 


complement the state of "Pr, 


INSERT SUPPRESS PREVIOUS 


Move the table entry "ff", as indicated below to destination 


G P=) MOVE TABLE ENTRY 7 CBLANK) | 

J P= MOVE TABLE ENTRY 2 CASTERT SN) 

1. MOVE PREVIOUS DESTINATION FIELD CHARACTER» MOVE 
IN LINE MASK CONSTANT INTO WHERE THE PREVIOUS 
DESTINATION CHARACTER CAME FROM» THEN UPDATE 
DESTINATION FIELD POINTER 


bree 
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ae NY a AOR en ee ee ES eee Cee re ie 


SE A i ac EERE ER Ene 


a Er ee Sara 


MOVE ZEROS 


aki kkk t& 
« MVZ & 


i 7 Are | 2 : | y 7 tenkkkke 


ee OP: of2ty 


Format: 


Rhee heahehenk | 
* M¥Z COPX1 * 


KRaKKKEKRKKKAREKK 


Function: 


th zeros of the 
: - 


Filtt the destination field denoted by COPX1 wi 
if 4-pit).. 


appropriate type (1111 0030 if S-bit or 9009 


If the destination field is signed» 1196 is placed into the sign 
position. 


Ha ab re ho pt Cg aL HP he eS Apel Se ap ne 2 Mn MR GAA Ar a A | plea salile AD ARPO e ala AN aA MRAP AR Oi = 
Ss Rea LG a NR CCA SA ca A Ce a sn i i ae re a a ee a eran PPA hse a ee Ie cg rs ik 
: : : : a eelteaes ee See ae erie aoe Me ec ee ae ee ates ARSE RRS Tere Marge Te ree rn ee me TCT ae Perc any ee er tea te ay Poteet Rota nine re tet Gap renin re cee OR eE AE returns MaRS HERPES So ote AEE SOA RE SAE RA ARR APSR PE eee te Roe RA RN vio el ebay ea 
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“SCALED MOVE NUMERIC 


akkhhkhhe 


* SMVN ® 


kRetkkkik 


OP: (23 


Format: 


Porrerr rr Te eTrrer Tre Terre ese 


* S4VN OPND1I» COPZ1» Ve SCL * 


Rae kK KaEKAEKKEKKE KKK KKKEKEKEKKRKEKK EK 


Function: 


if V equals zero» perform a MOVE NUMERIC operation after first 
adding the szsale factor to the field tengtn of the source field 
and assuming that the added portion of the field is zeros on the 
right. fhe scale factor must not oe greater than the destination 
field iength. | 


If V equals onere perform a AQWE NUMERIC operation after first 
suotracting the scale factor fron the fietd length of the source 
field. The scate factor must not oe graater than the source 
field Length. | | 


bt rules specified for MOVE NUMERIC are applicable after 
justment by the. Seale factor. | 7 | 


fhe container size for the scale factor is the same as the 
container size for the Length of an Oferand (LENB). The tength 
of ¥ ts one pit. 7 | 


BURROUGHS CORPORATION = COMPANY CONFIDENTIAL 
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ste an ie S Els REET A SESS Ate Re Seb Re Tn 


facie} Sian Sek tal oR ES ns BE we WSS Se 


ye a ans ek Pe 


MOVE NUMERIC IO ELE INDEX” 


keke eRe 


ket k KKK 


Le 


ops 30 


TR a a Eg a i lh a 


Format: 


TTT Tit tt teil 
« MNFX OPNDI * 


kkkek&kk&kkkk kkk t 


Function: 


Perforas a normal MOVE NUMERIC after building tne destination 
descriptor (COPND1) for the implicitly declared file index field. 


a a a Oo an 


PALE SSE SEES SE ES ROS REE 


PEEnneen PEEERES 
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MOVE NUMe#IC IO QUIET Sx1ICH 


rceeeeee. 
« MNOS * 


kkk kkk 


Format: 


eererrrte ete s: 
* MNOS OPNDi * 


kiek&hkkkkwekaeekKke 


Functions: 


2erforas a normal!’ MOVE NUMERIC after guilding the destination 
ee COPNDL) Pf dr the imolicitly declared output switch 


field. on a 
ve ye 


ae 
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tk kh tt hhh 
* MVAR * 


wk aekaeake 


Format: — 


REI EHR ER REE E ER EERE REE RER EAA RRR REE AR 
 & MYAR INDL» GPND1» COPX1» COPX2» COPK3 * 


khehkkk kkk kk hkkek&kkkRkk Keke KKRKRK KKK AK 
Function: | 


first adjusts the field lengths of the source -COPNDL) and 
destination (COPX2) descriptors so that they each descriove their 
arrays from the actual element addressed to the end of the array 


and by adjusting their field tengths so that no "Destination 


Longer® fiabh will occur, 


If the source fietd ts not an array CINDLD» then COPK 1 is not 


present. If the destination field is not an array CINDL)>» then 
COPX%$ 3s not present. These antries descripne their entire 
respective arrayse | | | 


ALL fields are assumed to be “unsigned 8-bit™. 


hE ER A Geib’ i, Ee Ee res 
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8 


“BRANCHING OPERAWDS AND LNSIRUCILONS 


a,’ branch address argument "BADDR™ has the following format: — 


DISPLACEMENT § BIYPE & SEGMENT NUMBER I 
aa: 1) &:).2: » ne nk © © ne 1 
Bs ping ead ee ae eames fPomammas_Eowsecavrenvanaenuw 
| ao ! | 
; PRESENT IF #BTYPE = 1 
to , | | 
4 | a 
G2 RELATIVE TO THE CURRENT CODE | 
SEGMENT BASE CINTRASEGMENT SRANCH) 
1: RELATIVE TO A NEW CODE SEGMENT BASE 
—CINTERSEGMENT S3RANCHD 


DISPLACEMENT is an unsigned binary value which specifies the bit. 
‘displacement of an instruction relative to a segment pase. The 
container siget of the OISPLACEMENT and 3TFYPE combined is a 
program parageter CBDISPB1).— OO 
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BRANCH UNCONDITIONALLY 


khe kkk 
* BUN * 


hes ee ee 7 ‘: | | 7 | keke kkk 


op: 36 


Format: | 


eee : ket kkk tit 
te BIN BADOR * 


kkkkkkkkkk kit 


Function: 


Obtain the next instruction from the location specified by JADDR. 
at 


4 . ; , A ; i, 


M| 
bd 


4 
4 
: 
4 
i 
a 


ila Oe heat Ne IE ol nae a, a Miler ae ee 


a 
‘| 
4 
Me 
i 
: 
i 
i 
It 
sat 
4 
| 
a 
fat 
: 


2 ete 
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mae eaeek 


NTR & 


kkk tee 


OP: 1A) 


Format: | 


eee 
® NER BADDR * 


kRakk kk khkhkhk 


Function: 


3taces an entry on the top of the programa potnter stack» bumps upd 


the stack pointer to point to the next available stack entry and 
branches to (Cor enters at) the Location specified by the BADDR 
entry. 3 | | | Z 


The stack entry consists of the displacement from the current 
code segment base to the Ssinstructtion oe the. perform 
(subroutine call) and the current segment numbde 


A Shad b daha aseiac tab cides Wa Ain tnt bal] Reatie Ree ROR a TAGS eh i = aS pants ty Badir deh tind De Pita Pde te 
RA ac cae Ce RU A aT a oa ne A SF Ab eet UAV ep aig eG BE De Bee Alpe ere ls AE eee 
See Fe aaa aac a A : a a aS oe ae ee a a REA Ek th Tha Ries SM EL a bin pee Dy lee eg hl A eR baling a ire BA 
Ae SE corset ar e oe ae Re eeTe TE Sa eee tein earn e emeetter tet rere a parse Peeine ete ret a eeraraeaceclgenten teat nant hee eee te UREN TRENT a een er eT ee rere nh ate eee I Me NER Rao ene ocd Tot tacl Rhus MeaHLA TUE eas bedi DOS LEAL meaeerale cammis ba anahin 
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ELI 


khk&knatkk 
« XIT * 


kkk ak khk 


yp: 19 


Format: 


khtkkee 
#& XIT * 


kKkX¥R KK 


Function: 


P2erforas by removing and saving off the current entry on the top 
af the program pointer stack» downdating the stack pointer» and 
obtaining the address of the next S*instruction from the renoved 


stack entry. 


: 
a 
ie 


i 
d 
H 


ents a Ao AS Taine 


aE 


i! 
W 
4 

y 
i 
i 

‘ 

j 


Bie Ca iGe Sucre) QUELEE LET EE eee ee cy PREECE e eee Ep Cera PELPEDED 


sR tema EY Rs Sg tn nin 
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 “NON-BOULEAN GOMPARISON AND INSTRUCTIONS 


if the condition “A (RR) 3" 165 truer a transfer to the address 
CBADDR) given in the instruction occurs» § otherwise control 15° 
passed to the next sequential instructione The relation (&) is 
def ined. as follows: |  % 


00) UNDEFINED 
OOL GTR 

O01) LSS 

O1L NEQ 

109 EQL 
“191 GEQ 

119 LEQ 

111 UNDEFINED 


Overlap of fields is permitted. “"A*™ is the first operand denoted 


in tae instruction. If an instruction has onty one operands then 
the assumed field is the "A™ fietd> Veeese for CZNS with R and 
BADOR» the assumed field "A™ is a fieid comprised of zeros. 


a Sa EE ne a ce a 


all PRE EE Sane PEEP Saeee PE EE Te 


EAS 2 a ee et Tre a a SE ne eT, ek SRR Re SL RR OE ee rs 
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COMPARE ALPHANUMERIC 


kkk hhh 
-@ CAPA * 


kk ket kik 


opr 7 


rormats:| 


aaa EEKRKEKAKKKEKKKEKEKKREKEKEKKKK EK 


* CMPA OPND1ir COPXir Re BADDR * 


Ka REKEKRAKEKKRKRKEKKKKKKEKRKaAKKRKA KKK 


Funetion: 
Conpare the two operand fields according to their oinary values. 


The comparison is performed left to right with any shorter 
operand assumed to be right-filled with blank characters (CO0100 
9096 if B8-bit?). | oe | 


The fi2tlds are considered equal whan the equal size portions are 
equat and the tonger (Cif one is longer) field has trailing 


Dilankse 


The B-oit data format is assumed for both fields with no checking 


to verify otherwise. Signed fields have their most significant 
four bitse ieee» their signe modified to the avorsoriate numeric 
zone (C1111 for &@-bit) before being comoared. [his modification 


is not permanent and is done so that tne sign will not affect thea 
resutt of an alphanumeric comoarisane | | | 


- BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


COMPARE NUMERIC 


Format: 


Rhee kkekkkkkeekeek kk kk kk kth ket 


Sa ee Se eee ee 


kkk kkkkekkhkkkkkkkkek kkk kk kee 


Funetion: 


In comparing the ®-bit characters 


* CMPN OPNDir COPX1> R» BADOR * 


When the field sizes are different» 
leading zeros (0C00). There 18 no restriction as to data type. 
onty the rightmost four bits of 
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kkekikh hike 


* CMPN « 


kkekkk hth 


Somoare the two operand fields according to the algebraic values» 
considering the two fields to re comprised of decimal integers. 


the Longer | is tested for _ 


tne character are considered; the other bits are ignored. 


ezee! 


| 
: 
: 
: 


Unsigned fields are considered positive. 
the same as for arithmetic operands. 


Two fields of all zeros are equal regardless of sign. 


Sign conventions are 


Zesults gencrated by invalid digit values are undefined. 


ee TE ES ALR 


Po iis LEE Se 


Riek Michonbe neki oles Sip cee Mi nee Gee licse rare nso te 
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COMPARE £UR ZEROS 


te kt kkk 
* CMP/ « 


kik kk hnukk 


Format: 


RR ER EERE REE ER ERR ERE ER 
* CMPZ COPX1> Re BADOR * 


Khe kkk kkkkkehkkitkik tk tk 
Function: 


Coapare two operand fields Heo wmaaine: to their algebraic values» 
assuming the first field to oe comprised of att zeros (9000). 


There is no restriction as to data type. In comparing an S-tit 
characters only the rightmost four bits of the character are 
considered. The other bits are ignored. 7 


Tao fields of alt zeros are equal regardless of sian. 


Unsigned fields are considered positive Sign convantions are 
s for | 


the same a arithmetic operands. 


results aenerated by invalid digit values are undef ined. 


ee rhage ai aly ge A eae ic eal a a ag a een Pl cane eas ea ke ca tear tae bor sch ie aca ae LL ct ie gee ae ena ga air On a ek A Na Rc a a la a aa A a mn ak ge a ea AN ea ro aL at ae i Rae Th 


ten” 
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“COMPARE E OR SPACE 


a 


UP: 25 
Format: 


kkk KKK KKK KEREKEKKRE KER 


* CMPS COPXi» R» BADDR * 


KREMER EKKEKEKEKRKEKEKERER 
ea be » 
runctton: 


Compare two operand fietds 


Z-4l 


COMPANY CONF IOENTIAL 
BLBCO/BL709 RPG S“*LANGUAGE 


Pe50 2212 5396 REV. C 

errr 

z CMPS * 

kkkrekkkn 

according to their binary vwatluespe 


assuming the first fietd to be comarised of all spaces (9109 0099. 


for B8"d1t). 


The comparison 15 pe er formed Left to. Pighte 


Unsigned B-odit fornat ais 
otherwise. 


assumed 


with no checking to verify 
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COMPARE ZERQ IO QuIPUT SwLIcH 


kh th thke 


* CLOS * 


khekak heen 


Format: 


khkirekkickakebhtacar 


*« CZ05 Re SADDR * 


kheatcakakauxbhhakner 


Funetion: 


2erforas a normal COMPARE FOR ZEROS after pbuilding the descriptor 
: © for the impticitty declared output switch field. 


SUEY Re ee DE BS GREE a rec 


4 
| 
A 
a 


| 
1 
<I 
‘f 
H 
, 
‘| 
i 
; 
i 


7 
a 
a 
a 
ks | 
a 
“4 
oh 
rt 
vif 
vf 
ng 
Za 
q 
a 
. 
My) 
| 
“4 
st 
a 
ny 
n! 
of 
id 
ay 
| 
‘1 
a4 
J 
“| 
“4 
4 
=< 
co 
v4 
a 
| 
: 
“il 
d 
mg 
I 
: 
: 
; 
i 
i 
HI 
Hi 
} 


SEES 3 33s Coron 
ql 
4 

; 

4 
if 

‘ 
: 
4 
4 , 
: 

ey 
; 5 
a . ’ 
Ad 
i 
ti : 
a . 
. 

i 
4 
a : 
eI 
a ; 
3 
i 
al 
a 
q 
é 
4 : 
i 
; 
, 
i 
‘ ; 
: 
Mr 

i 
; 
iH 
i 

t ‘: 
: ; . 
i 
ul 
| 
i 
: 
| 

; 
i 
# 
: 
: 
i 
: 
i 
M 
0 
om 
Y 
iH 


BYURROBUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


QP = 27 


Akh keke EER KK 
* CZFX Re BADDR * 


kRktkkkkkkhk ekki 


Function: 


3743 


COMPANY CONFIDENTIAL 


B1200/81700 RPG S*LANGUAGE 


PaSe 2212 5356 REV. C 


tke ke&hkkenkaek 
x CZFX * 


khtkhhkkt 


Performs a normat COMPARE FOR ZEROS after ouitding the descriptor. 
for the implicitly declared file index field. © 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


COMPARE NUMERIC IQ QUIPUI SHLICH 


Formats 


Rhkkhkhhhkhkkkhkkekk&kkehkkh kh 


* CNOS OPNODI» Re BADDR * 


WHR KRKEKRKEKAKERKKKKRKKREKRAEKEK 


Function: 


| COMPANY CONFIDENTIAL 
B1860/81700 RPG S-LANGUAGE 


P.Se 2212 5306 REV. C 


kRathkkkanktk 


* CNOS * 


kk kkk hte 


Performs a normal COMPARE NUMERIC after buitding the descriptor 
for the implicitly declared output switch field. 
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COMPARE NUMERIC [0 EILE INDEX 


KR KEE 
* CNFX * 


ktkehkaakank 


Formats — 


Peer errreer rr err TTT ee Te 
« CNFX OPNDi»r Fe BADDR *& 


kaekkkk& kkk ktkkkkkkkkkkekk ek 
Funetions 


2erformas a normat COMPARE NUMERIC after building the descriptor 
for the implicitly declared file index ftetd. | | 
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COMPARE ALPHAs MARK RESULL 
KKK RRR 
* CAMR * | 


kkk ekke 


OPS 43 


Formats 


Pee Cer TCT TT CTE Te ree eT: 
« CAMR OPNDis COPXL» R» BI * 


Rake KkKaEKREKRAKKAKRKEKKKKKK KKK 


Function: 


Par foras a normal COMPARE ALPHA» except that if the relation (8) 


is met» the ooolean indicator specified by the boolean index (81) 
1s set to zero. | re | 


lf the relation is not met» the boolean 1s set to one. 


fhis s*instruction thus aarks the result of tha compariscn> 
rather than branching. 
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wo 
s 


COMPARE NUMERIC» MARK RESULT 


tkkka thik 


* CNMR ® 
tektehie 


OP: at a 
Format: 


‘Kee tae ee tiieeee ene esadanes 
* CNMR OPNDis COPX1i» Re BI * 


RERKKKKKEKEKKKKEKKEKKKK KEKE KKK 


Function: 
2erforas a normal COMPARE NUMERIC» except that if the fretation 
{R) is met» the boolean indicator specified by th2 boolean tndex 


C31) is set to zero. 


If the relation is not met» the boolean is set to one. 


This S instruction thus marks the result of the comparison, 
rather than tranching. | 


| 
“4 
"| 
i 
a 
‘| 


: 
i 
: 
: 


- BURROUGHS CORPORATION — 
COMPUTER SYSTEMS GROUP 
“SANTA BARBARA PLANT 


COMPARE EOR SPACES» MARK KE 


OPS 45) 


Format: — 


kkk ea kk eK RKKEKKKE AKER 


x CSMR COPKir Re Bi * 


kRhktkhkkkk kkk aekkeaakekkkeet 


Functton:. 


2 


U 


Li 
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ae et txkk& 
* COMR « 


wee aekKkaek 


2arforas a normal COMPARE FOR SPACES» except that if the relation 
CR) is met» the kootean indicator specified by the boolean index 


(81) is set to zero. 


lf the relation is not met» the boolean is set to one. 


[his 3~instruction thus 
rather than branching. 


marks 


the 


result of the compariscns 
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«GOMPARE FOR ZEROSs MARK RESULT 


wt€akkk ake 


* CZMR « 


kRhtkhthkt 


Format: 


Prev TTT TTT TTT TTT TT Te 
* CZMR COPXi» Rs» BI * 


kerk kkkkkkkkkk&kkakkikk 
Function: 


2>erforms a normal COMPARE FOR ZEROS on COPX1»s except that if the 
relation (R) is met» the bpootean indicator specified by the 


poolean index (BI) is set to zero. 
if the relation is not met» the boolean is set to one. 


This Sc" instruction thus marks the result of the comparisons 
rather tnan branching. | _ 


PERM Bitte eiat pe gts eer See Pee eee eee S Be esheets 
HIRES DRC Reais Re eens elas 
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BOOLEAN MANIPULATION 


SEI ONE S0QLEAN 


ckkek kare 
* SET1 « 


we kee eke 


oP: 32 


Format: 


kkk kaekeknek: 


« SET1L BI *« 


kk&kkkkkkekkk 


Funetion: 


Sets the boolean indicator» specified by the boolean index (BI) 
into the reserved area» to a one. 


‘4 
‘i 
2 
i 
my] 
“| 

4 

/ 
1 
“| 


RELA ie eS 


dessa Pee De Pa ae 


ee 


BURROUGHS. CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA ?LANT | 


CLEAR ONE BOOLEAN 


UP: 33 


Format: 


‘siverwenes 
* CLRi BI «* 


kRkxkaekkkkkke 


uncttions: 


vr} 


wade & 


ay 
i 
i 
i 
1 
: 
: 
4 
i 
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tee ee ee 
* CLRi * 


kk keh kee 


lears the boolean indicator, specified oy the boolean index C31) 
nto the reserved boolean area» to a zero. p 3 
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“CLEAR BOOLEANS USING MASK 


eek hhh 
« CBUM * 


tkkatk ake 


OP: 36 


Format: 


eR RERKEKKKKKKKKKE KEK 


* CBUM BOOLEAN-MASK *& 


kkkekkkkkkkekk kkk kk kkk & 


Functions? 


Clears the boolean indicators» in tre reserved boolean areas 


which are matched with a zero oit in the poolean = mask. It is 
thus a bit "AND" of the booleans witn the boolean mask. The 


nooltean mask has a length of 144 bits. 


EECA IS DAP Ree REE 


ee seat St 


52 ear RS ise eS ELLE 
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CLEAR IWO BOOLEANS 


cRahkahkkhee 
« CLRZ * 


ktaeekk ik&hktk 


OP: $7 


Format: 


PeTTeTIT TTT TT TTT 
x CLRZ BIis BI2 * 


wexkk&k&ekaakikkkakak 


Funettion: 


Clears the boolean indicators» specified by the bootean indexes 
(311 and B12) into the reserved poolean area» tO zero. 


i 


2 PEE Cee 


Spee ed jes 


-~ SURRDUGHS CORPORATION — 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CLEAR IWREE BOOLEANS 


Format: 


KKK KRKKKKKEKKKEKKKERKKEK 


* CLR3Z BIL» BI2>» BIS * 


kkkkkhkhhkkkkekkkkkk kek 
Funetion: 


Clears the boolean indicator S» 


specified by the boolean 


COMPANY CONFIDENTIAL 
B1800/31700 RPG S“LANGUAGE 
Pade 2212 5396 REV. C 


rere 
* CLR3 « 


kh hh hie 


indexes 


(8311+ 3812 ani BI3) into the reserved boolean areaar to zero. 


| | 22 
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SEY THO aOOLe ans 


kk &kkhkk&r 
* SET2 * 


te kek aeae RRR 


OP: > 


Format: | 


SeTeTeTeTTTTTTTTy 
* SET2 Bll» Bl2 * 


KeeKKKKKKEKKKKkkKkKKkkK* 
Function: 


Sets the boolean indicators» specified by. the boolean tndexes 
C3Ii and 812) into the reserved Boolean arear to one. 


‘| 
Ah 
fl 
dt 
) 
i 
: 
rl 
: 
i 
a 


ee An SRE a in Ss ete tink Sok SCE OES Sete! 


Sah a ta ane aoe a 
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SEI IHREE SO0LEANS 


heh keh hit 
* SETS * 


KkakakERKKEK 
—OP2 4D 


Formats. 


‘cireceaePedeeeereeeeeis 
*« S°T3 BIL» BI2> B13 * 


kK RAKKEEKEKKKKAK RAK KEK 


Function: 


Sets the bhoolean indicators» specified by the poolean indexes 
(811+% 812 and BI35) into the reserved poolean areas to one. 


a a aa Ta a aR RE A Tae i aa ta ae san ei a Re ls aA ie Rn A PN Ee Be dad ae a da ee 
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BLT ON 


eres Tae 
*« RION « 


kk kkk kh 
OP: 4B 
Format: 


RARER ERRER ARERR RE 
* BYON OPND1» COPX1 * 


Rkhekkhk ke kkkkkekkk kkk 


Function: 


Takes the two operands (OPNDIL and COPX1) and OR*s them together 
with tne result placed in the location denoted by COPX1. 


Both OPND1L and CUPX1 are guaranteed to be B8B-pnits wide. 
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B11 OEE 


- kaKKKEEKE 
* ATOR * 


kkthkkkhee 


Format: 


RRREKERRE RRR RE 
* BTOF OPNDi» COPX1 * 


kkkekkkkkkk&kaekkkkk keke 


 Funetion: 


Takes the OPND1 operand and complements it before performing an 
6 ™AND™ Operation with the COPX1 operand. The resutt is placed in 
the tocation denoted by COpPX1. 


Z0oth OPNDi and COPX1 are guaranteed to be &-vits wide. 


Biol EE 
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IESE g1I 


kRhkthkkke 
x TSTR «* 


KRkektkkt kk 


Format: 


kk kkkkhkhkkkkkkkkkkek kk kkk kkkkhh kkk kkeik 


* TS5TB UPNDi»e COPX1> INO1l»> IND2>5 IND * 


Kee kekk kek kkk ketkhhekeeekekheeehkekkkkhhk 
Function: 


30th OPNDI and COPXi are guaranteed to be &-bits wide. The 
routine computes (COPNDL “"AND®™ COPXL) and then sets the indicators 
according to the following rules: 


IND1 t= COPND1 NE@® 90) AND CCOPND1 AND COPX1) = 9) 


IND2 = COPND1 NEO 9) AND CCOPNDL AND COPX1) NEQ 9) 
AND CCUPND1 AND COPX1) NEQ OPNDI) 


IND3 2= COPND1 NE@ 9) AND CCUOPND1 AND COPX1) = OPND1I) 


Format: 
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«TEST NUMERIC 


‘ & éwe « k & 
* TSTN « 


Katee KR RK. 


eM KAEEKKKKKHKAKAKRKaRaA KK KK 


*® TSTN BIl> BIZ,» BIS» COPX1 «- 


week wa RKEKEKKKKKN KARR aK KEK 
Function: 
Aiti clear all three indicators pointed to by the 31's. 


If the value of the first BI (the actual value of the index and 
not the value of the indicator indexed to) is zero» skip test A 
If 812 15 zeror skip test 8. If 8I3 iS zero» skip test C. | 


The three tests are mutually exclusive and as soon as one is 
found to be true the operation will end. 


The three tests are as follows: 


A) The field defined by the cCOPX aust contair atl numeric 


characters where a numeric character is defined as 


hexadecimal Fd» where d=0"9,s except for the right most 
EdCOIC character which may be any of the following: Fd» Cdr 
Dd» 46» 69 Cd as defined above). If the test is satisfieds, 
set the boolean indicator indexed to by S8I1. If tne test 
fails» go to test 3$. - 2 
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Tae field defined by the COPX must have at least one Leading 
blank Chexadecimal 49) followed by one or more EBCDIC. 


character(s) where EBCDIC is defined in A) above. The field 
will have at least two characters» i.e.» one olank and One 


 EBCDIC character. The field must have onty Leading btanks 
followed by EBCDIC characters. If the test is satisfied» 
set the boolean indicator indexed to by 817. If the test 


fails» go to test C. 


The field defined by COPX must consist of att blanks 
Chexidecimal 40). If tne test is satisfied» set the ooolean 


indicator indexed to by 813. If the test fails» go directly 
to the next S7O0p in line. a * _ . 


COMPANY CONFIDENTIAL — 


TESA Seen NaeRoaike ony Hey ies sd 
: 


OP: 
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BOOLEAN COMPARISON 


BRANCH LE BOOLEAN EALSE 


ke kkk knee 


* BIBF © 


eRe eR KR 


te 2 


Format: 


KkKEKKaRAKEKKKKKKES 
« 8IBF BI»e BsADDR * 


wkkekkkkkekakk ke kakKKEKR K 


Functions 


Tests the boolean indicator specified by the boolean index (BY) 
and then branches to the Seinstruction specified py BADDR if the 
poolean 1s false, 1.@<e,. zero. 


ie Spee SSS SSE I 


a ee 


SS 
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BRANCH IE BOOLEAN IRuE 


UP: 34 


Format: 


pan ek cea Cee 
* BIBT BI» BADDR « 


KKK EAKKKKEKRKRKRREK KEK 


Functions 


Tests the boolean 


poolean is trues. 
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hehe hie 
* B81BT « 


kattkkhkek hk 


indicator specified vy the boolean index C8I) 
and then branches to the Sitinstruction specified cy BADDR If the 


ieee 


ONnee 
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tk ek keh 
* TST2 ® 


kKikthktk kh 


khkkkkkkkehkkkkkkkkkhk kkk kkk kkk kik keh tk 


* TST2 BIVir bIL» BIVZ» BI2> BADOR * 


MEEK AKKKKKKKKKEKKKAKKKRaEKKA RK KK . 


Function: 


Compares each ooolean test value (3TV1 and 8fV2) to the boolean 
Indicator pointed to by the corresponding boolean index (BIi and 


312). 


If they compare equal» 
soecified by BADDR. 


then a branch is made to the tocation 


If they do not compare equal» than the next are compared in like 


fanner. 


If none compare equal» 
skipped until the next 


then the aext instruction pointer is 
instLine Srinstruction occurs. 


i 
‘ 
i‘ 
i 
t 
d 
i 
d 
i 
! 
d 
ia 
i 
it 
5 
: 
i 
My 
: 
Sf 
, 
t 
‘" 
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IESE 3 BOOLEANS 


kek tehhuke 
1513s 


kekektkhke 


Format: 


KREKKEKRKKKKKEKRKK kthkkkkhkk kkk kkkee keke tk haekiheik 


* TST3 BIVir BI1>» BIV2> BIl2>+ BIV3+ BIS» BADDR * 


HIME KE KKK MEK ERK KKKAMKAKKARAKAKK KKK 
Functton: 


Compares each boolean test value (BIVl» 8TV¥2 and B1V3) to the 
900lean indicator pointed to by the corresponding boolean index. 


C{(BIL» BI2 and 3I3).- 


If they compare equal, then a branch is made to the Location 
specified by BAODF. | 


If they do not compare equal» then the next are compared in tike 
manner. | 


Lf none compare equals then the next instruction pointer 15 
skipped until the next inthLine S-instruction. 


ety ne han phot v nee welrtioh we Sireerd eee tye ap eeeree Rpantepr est a pevea iehainee eutnitre seioPah speedo ten bar te ena erat tar eA at ae ic ace Se ee el ea ta a roe aad Da ras he wan ae Sh Saar AAs oh ae bee AR IS ey BRE Fk ptr bh be herd REPRE clog yt river eco wt tr Gh Phat Mh wel ef 
Seeseint iriceti boameiit or ee a la PE etait id rw series ethane te elena inlet er enee Ene y oA NO PR OERET SATE RO DEORE AEN AERA PTI Ter ee TTY Tea Eee Re aI ER ae Aa ORI RTT DORA Err cP OOH a AAPL AOE TYE Ye ne Pe CN Sy CS POR SAR Ya OF NY Caf arer POA sauPeSA POM te “Ube fat Meo erg Sop pte A ie Marat LO bors, eh PER YY ae UU EDGE aye uf prone dentstrts emer egy mAMRen ER ey oan ony AAP IA 2 oul antyesrery cent 66 HeGain yb Man die yi rie ven felareneit? Sie fon Sires Se a 
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MISCELLANEOUS INSIRUCILONS 


CONVERT 10 BINARY 


*« CONV * 


kk ek kkk 


op: oo 


Format? 


Cah HeREREne HERR REEE 
* CONV COPX1 DADDR * 


thee kkthkkkkkekikhik 
Functions 


convert the operand denoted by COPX1 from a decinal value to an 
unsigned 24"bit binary value» truncating or zero filling on the 
left if necessary Place the result at the Location specified by. 
DADOR. | _ « & | | | 


[he operand must be either unsigned 44-bit or unsigned B-bit 


units. 


DADDR is an unsigned binary value which specifies a digit 


displacement from the data segment zero base. 
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LOAD COMMUNICATE REPLY 


kkekkkhik 
* LOCK * 


Rikki hkhkhhk 


pus 


aps) 
Format: 


Keke ek hehe eke 
* LUCK DADDR «* 


kkkkkkekk ikke k 


23-8 LSS 


SS Cees ee 


a ae a ae 


Functions) 


“ove the tast 24 bits of information from the RSeREPLY area of 
the RSp~NUCLEUS to the tocation specified by DADDR. : 


Se 


DADDR iS an unsigned binary value which soecifies a digit 
displacement from the data seqment zero base. 


‘ 
mi 
i 


we EET ASSERT EE EER ARES Ere eae RR e a Eee ys See Sea tn 2 eer eS Tre ee eee ey Se aa ie BS 
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MAKE PRESENT 


keke k kkk 


* MAKP «* 


kkk kkke 


Format: 


kRaekkkkkkkkkkkakaekkhk ek k 


* MAKP COPX1ls» DADDR * 


keke Kk kk eEaKKKKKKKKKKE 


Fuaction: 


_oads the data segment specified by COPX1L and places the base 
relative address of the data area SRecriy ce by COPX1 jinto the 
24-bit Location specified by DADDR. | 


QADDR iS an unsigned binary value which specifies a digit 


displacement from the data segment zero pase. 


The container size of DADDR is DIS?P8. 
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COMMUNICATE 


ck tkeekan 
*« COMM * 
khhk khan 


Format: 


kkk kkikthk eke t 
* COMM COPXi * 


kaetkk kk kkk at kk & 
Function: 


dove the tength and address fields from the COPX1 entry to the 
RS~COMMUNICATE.~MSG.PIER field tocated in this program's 
RS»~NUCLEUS» converting them enroute. The origin fietd 15 
unchangede _ 


The tength is converted from a digit or character Length to a bit 
length. The address is stored as an absolute oit address. 


SPs 
Pitches See Ress 


PAE UES DEE EO Eee URES EEE one cE Eeer ee 
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Format: 


kkkkkkkhek kik & 


* HMON OPNDL * 


RkKAKKKKKKRKKKKKK 


Function: 
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kaueKxkKenke 


* HMON * 


kkkkexekkk 


Tne tow order eight bits of the fietd described by CPNDi are used 


as the inout to the 
following product specifications: 


M~Memory Processor 
o"=Memory Processor 


HL913 L747 
#2291 676% 


microtoperator descriced in the 


The length of the field described by OPNO1L must be greater than © 


or equal to eight bits. 


Pepe Ste cet Cage etig ee ae Pere eed oy et} tate t ae 
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BEGINNING OF JOB 


oP: 351 


Format: 


e&eekaknkkkeaekeet 


« BO0J CUPX1 * 


— ew eee KRKEKK KKK 


Function: 


AD be 
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kkk kik 


* BO ® 


kRhiekketk 


This 3-instruction is called at 8303 time to do anything that has 
to be done. It is thus used only once per RPG execution. Tt 


does the followina: 


= Gets the middte 32 bits from the RS~SWITCHES field tn 


the run structure nucteus 


and writes them into the 


32-bit field specified by COPX1. 


- Writes the low order oit of each 4~bit switch into the 


8 "“U" indicators (Ul 


38 Czero origin). 


theaugh VE) at 


boolean 131 through 


a a a a ae | oar naa be an nd ate eae a cee cen a ee 
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UNORDEREQ TABLE SEARCH 


Rhehkkaht 
* UTSR * 


kkek&k&k kat 


Format: 


Rae KEKKKEREKAEKERKKKRAKRARKKKKKKK KKK Kh 


® UTSK OPNDie COPXL> COPX2> COPX3» BI * 


kakxekkkek&kxkkk&kaekke kaxenkkeeaekkakkkkkkekew kkk kkk & 
Function: 


Hilt take the argument COPNDi) and proceed to search serially 
through an unordered tables» whose first element Cand hence the 
oeginning address of the table) is described by an index (COPX1 
which is usually subscripted)» for a match (Ccompare “equalt™). 
The search witt begin with an element Cdescribed oy COPX2s 4 
digit-unsigned field) within the table and will continue until 
either a $= match is found or when the last element Cdescribed by 
COPX4S; atso subscripted in the table is reached. | 


If a match is found» a flag will ce set tn the boolean indicator 
{as described by the boolean indexs Bl) and CSPK2 will contain 
the index value of that element in the table where the match Was 
found. | 


If no match is found» no flag wittl be set in the boolean 
indicator and COPY? will contain an tndex value greater than the 
index vatue of the tlast table element (COPX3). 


ey 
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ORDERED IABLE SEARCH 


| NEC eRX 
x OTSR *« 


Rhkkhhkeaen 


OP: 53 


Formats: | 


hkhkkhkkkkekkkeek kh kh kkk kik kkk Keke RK KKK REE KE 


* OTSR OPNDie COPX1» COPX2» COPX3» IND1»> KEYS» BIle B12 * 


RKKEKKEKKKEKE Keke RRR AKER RRR KKK KKK KR KKK Kk 


Function: 


aittl take the argument COPND1) and proceed to search through an 
ordered table (Cnon-ascending or nonedescending order) whose first 
alement Cand hence the beginning address of tne table) is 
descriped py an tndex (COPXL)» for a match. fhe search will 
begin with an element Cdescribed by COPX2) within the table and 
will continue until either a match Cor an element which most 
nearly satisfies the relational requirements) is found or when 
the tast element (described dy COoPX3) i858 reached. 


A flaq CINDI) will be set if the table is nondescending. 


The relational requirements ("="» "<", ">", or a combination 
yetween two) as described by KEYS will determine how the match 
petween the argument and the tabie elements is to be made. 


If a match tor an ehkement which most nearly satisfies the 
relational requirements) is found» two flags will be set in the 
boolean indicators as addressed by #811 and 812. COPX2 will 
contain the inaex value of that element in the table where the 
match was found. : a. 


v: 


a Ta a a ra Te sy a 
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If no match is founds the flags will be reset in the boolean 
indicators and COPX2 will be set to IL. | 


Soma comments regarding OTSR: 


defore going into the description of the atgorithm» three items | 
should be noted: | | | | - 


4. This S-instruction imitates the RPGII's Lookup routine. — 


2. This — S-instruction does not pretend to be 
- mathematically sound. 7 | 


3. The user should be aware of this S"instruction's 
| idiosyncracies and program accordingly. 


It should be noted also that the table under inspection may be: 


Le Declared ordered and non-ascending or non-descendinar 

. but can be really unordered. | 

Zo Declared ordered and non-ascending or non-descending 
and 31s realty ordered. | 


3. Declared unordereds in which cases the compiler wilt 
always call the Jnordered ‘Table Search CUTSR) 
Stinstruction (the user should be aware that under UTS? 
tne only relational requirement for a aatch 15s ="). 


The atgorithm: 


1. Save the index of the first table element to be 
examined in "F*, | : 


2. Save the index of the Last table element to be examined 
in . | , 
as lurn both booleans associated with the S*instruction 


initially off. 


Sere ee Rae ea SRD Ming Sate Ne Meares Ee, © Mae Lote Bice ae Cater, al gh PERSE Sieg ake Beawae ge yeh) oe NY ce goat oe Bolte ly tk Ce ae eee ae ee ee Ree abe oe ga Bee eee. Re Soe ee ee 


Hy Bt ERE Ep GP PE SLUR REDE AS ee Pe EERE OC 
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be Set a REVERSED RELATION flag if 


Be 


i2. 
13. 


14. 


as search for L$S of LEQ on an ascending table» or 
be Seatch for GTR of GE® on a descending table. 
If F>L then yo to step 3. oe 


Compare TABLE CF) to ARGUMENT. Go to step 14 if: 


Tabte Type search Relatton. TableCF) & Argument 


Ascending LSS | : GIR or EAL 
Ascending = LEQ : | GTR 
Ascending FQL - Qu 
Ascending . GEQ | GEQ@ 
Ascending GTR GTR 
Descending LSS LSS 
Descending LEQ | LE@ 
Descending FQL FQL 
Descending GEQ LSS 
Descending GTR | L5S or Eat 


Add 1 to F and go to step 5. 
If the REVERSED RELATION flag is off - go to step 13. 
Subtract 1 from fF. | 


If F is tess than the index of the first element to 
searzths move 1 to the first index and exit. a 


Set the first boolean if the last coapare showed EQL> 
the REVERSED RELATION flag is on and tne search was for 
LSS or GIR» or the REVERSED RELATION flay was off and 
the search was for EQLexe LE» or GEQ. Otherwise» set 
the second boolean. | | 


Set the first index to F and exit. 
Move 1 to the first index and exit. — 


lf the REVERSED RELATION flag iS On» go to Step 9» 
otherwise» go to step 11. _ . 
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CONVERT ELELD 


ahh kkk 
© CNV w& 


kaaexzk kKkt 


Format: 


AkKKKKHRKKEKEAKEKKKEEKEK 


* CNY COPX1» COPX2 * 


Rke&kek&KaREKKKXKKEKKARKKKEK 
Function: 


ditt convert a source (COPX1) into a result to be placed at a 
destination (CIPX2). 


The form of the data types as described by COPX1L and COPX2 for 
source and deStination must conform to one of the following 
patterns since the form is not checked by the S-instruction 
itsel f. : | 
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COPX1 2”  CoPK2 | 
CSOURCE )- | COESTINATION) 
DECIMAL DATA 1 BINARY DATA 
eee eee ee | Ee OA ae ee ee 
4 DIGITS i 16 BITS 
9 DIGITS 32 BITS 
{ 
BINARY DATA 1 DECIMAL DATA 
nae wom awae { anna eae mam ee 
16 BITS 1 4 OIGITS 
32 BITS i 


9 DIGITS 
UE : 
ae | 
NOTE: Oecimal data is in standard signed nuaeric 
binary data i's'.in 2's complement form. 


form white 


 BOJLEAN COMPARISON 


= FE SS NE ee 
Rin te BABES ete eM ae a ate Re acti tot la N 


SE Ee ae ee ee 


TR ¢ SSeS 
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BEGINNING OF JOB 3-71 | 
BIT OFF 3-5B 
310 ON 3°57 Figs 
2762 3°62 
275» 3°59 
3-62 
3-63 
3-34 


300LEAN MANIPULATION 
BRANCH IF BOOLEAN FALSE 
SRANCH IF BOOLEAN TRUE 
BRANCH UNCONDITIONALLY 
SRANCHING 2-3 
BRANCHING OPERANDS AND INSTRUCTIONS 
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COMPARE FOR ZEROS» MARK RESULT 
COMPARE NUMERTC 3739 
COMPARE NUMERIC TO FILE INDEX 
COMPARE NUMERIC TO OUTPUT SWITCH 
COMPARE NUMERIC» MARK RESULT 3-47 
COMPARE ZERO 193 FILE INDEX 3743 
COMPARE ZERO TO GUTPUT SWITCH 3-42 
Container Size 1*5 
CONVERT FIELD 3°76 
CONVERT TO BINARY 3-66 
Current OQperand Index C(CCOPX) 
Surrent Operand Table CCOP) 
DATA LENGTH 1-12 
DATA MOVEMENT Coe. . | | 
JATA MOVEMENT GPERANDS AND EST Av ESN: 
DATA TYPE 1712 | 
DECRe MENT 376 


3-46 


5748 
5749 


3745 
37-44 


1-7 
L-il 


DECREMENT BY ONE 5-11 
DISPLACEMENT trie 
DIVIDE S49 

COIT INSTRUCTIONS ae ee 


“1X1 
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“DIT MICRO-“OPERATORS 3-20 
EDIT WITH EXPLICIT MASK 3°19 
ENTER 3~35 
EXIT. 3-36 : 
igure inml: RPG Program Layout i= 
igure 1-2: Fixed Field Area 173 
igure 1°72: Fixed ELeed Area €©8.9 and After) l-4 
GENERAL 1-1 | 

HAROWARE MONITOR 3°70 | 

In-Line COP Information i179. 

[INCREMENT 374 

INCREMENT BY ONE 3719 

INDEXING 17-14 

INSTRUCTION SEF 21 

Literal String 177 | 

LOAD COMMUNICATE REPLY 3°67 

MAKE PRESENT 3-68 | 
MISCELLANEOUS 2-7). | 

MISCELLANEOUS INSTRUCTIGNS 3766 
MOVE ALPHANUMERIC 571.5 

4OVE ARRAY 3-32 

MOVE NUMERIC 3°15 

MOVE NUMERIC TO FILE INDEX 3~ 3 

MOVE NUMERIC TO OUTPUT SWITCH 3-31 

MOVE S? ACES 3°17 

MOVE ZEROS 3-238 

MULTIPLY 378 

NON“BOOLEAN COMPARISON a~h 

NON“BOOLEAN COMPARISON AND INSTRUCTIONS 3°37 

NUMBER OF SUBSCRIPTS OR INDEXES 1-13 

Jperand COPND) 1-6 

GRDERED TABLE SEAFCH 3-73 
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S7LANGUAGE PROGRAMS ini 
»"OQperators 176 

SCALED MOVE NUMERIC S729 
SEF ONE BOOLEAN 3759 

SET THREE BOOLEANS 3756 
SET TWO BOOLEANS 5255 
SUBSCRIPT FACTURS ini 3 
SUBSCRIPT *OR~INDEX“FLAG Le i2 
SUS TRACT 3r7 

TA3LE SOUND 1714 

TEST BIT 3759 

TEST NUMERTIC 3-60 

TEST 2 BOOLEANS 3-64 
TEST 3 8GGLEANS 37°65 
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